home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / dot < prev    next >
Text File  |  1995-02-04  |  423b  |  19 lines
  1. //---------------------------------------------------------------------------
  2. //  dot.r
  3.  
  4. //  Syntax:    dot ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  Compute the dot product of two vectors, A and B.
  9. //---------------------------------------------------------------------------
  10.  
  11. dot = function ( A , B )
  12. {
  13.   if (min (size (A) != 1) || min (size (B) != 1)) 
  14.   {
  15.     error ("dot: A and B must be vectors");
  16.   }
  17.   return (A[:]' * B[:])
  18. };
  19.